home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / ScriptX Platforms / Win31 / menu.sxl < prev    next >
Encoding:
Text File  |  1996-05-21  |  12.0 KB  |  71 lines  |  [TEXT/LMAN]
  1. MINA/Ÿ
  2. rã,8HXdp¥ Pdxåú‡4D`pÄê†∞¿–‡ ,<L\l|ò®∏»ÿËÙ$4DTdåò®¥ƒ–‡Ï¸4P\xî∞ºÿÙ8‹¯0L"d‰$Ñ"ú‰‰å"00DTh|åú¨º»ÿ˯(8HXhxàò®∏»ÿ˯(8H\l‹¯    , H T p | ò ¥ ¿ Ã Ë Ù!!!(!4!@!\!h!Ñ!ê!¨!»!‘!"@!¸"P"‘"‰#(#<#L#\#l#|#å#ú#¨#º#Ã#‰#Ù$$0$D$d$Ä$î$¥$»$‡%%%8%P%t%ú%¿%ÿ%Ï&&,&@&\&x&ò&¥&Ã''$'8'L'l'å'®'º'ÿ'Ï((((@(T(p(å(®(») ) )d)x+x+º+–,‘,Ë-,-@.D.X.l.Ä.î.§.∏.».‹.Ë.Ù// //$/0/</H/T/`/l/x/à/ú/®/¥/»É¡¨
  3. ”™”™”™
  4.     É¬ÏÅÉîÅÉ¿úÄÖÅ
  5. ɬ‹ÅùúÄÄ
  6. ɬ‡ÅÖÑÄÄÉ¿úÄÖÅÉ¿úÅéÅ>Ç ù8Ç∏¥Copyright Kaleida Labs, 1996Ç∏îMenu>Ç ù    Éÿ\”™”™”™âîÅÉÿ\”™”™”™áîÅÉÿj”™ÿn”™ÄîÅ
  7. ɬ‡ÅÖÑÄÄ>Ç ù !"#$
  8. ɬ‡ÅÖÑÄÄ%>Ç ù&'()*+,
  9. ɬ‡ÅáÜÄÄ-Ç∏îFile Éÿ^.ÿp”™ÅÄœ Éÿ^/ÿr”™ÅÄŸ Éÿ^0ÿt”™ÅÄÄ Éÿ^1”™”™ÅÄÄ Éÿ^2@3Δ¶ÅÄà Éÿ^4ÿv”™ÅÄÄ Éÿ^5ÿÇ”™ÅÄÕ Éÿ^6”™”™ÅÄÄ Éÿ^7œ~”™ÅÄ—Ç∏îEdit Éÿ^8”™”™ÅÄ⁄ Éÿ^9”™”™ÅÄÄ Éÿ^:;@<ÅÄÿ Éÿ^=;@>ÅÄ√ Éÿ^?;@@ÅÄ÷ Éÿ^A;@BÅÄÄ Éÿ^C”™”™ÅÄ¡Ç∏îWindow
  10. ɬ‡ÅàáÄÄD
  11. ɬ‡ÅíëÄÄE
  12. ɬ‡ÅåãÄÄF
  13. ɬ‡ÅÇÅÄÄG
  14. ɬ‡ÅâàÄÄHÉ¡X’òÔ
  15. ɬ‡ÅçåÄÄI
  16. ɬ‡ÅéçÄÄJ
  17. ɬ‡ÅÇÅÄÄK
  18. ɬ‡ÅÖÑÄÄL
  19. ɬ‡ÅÖÑÄÄM
  20. ɬ‡ÅÇÅÄÄN
  21. ɬ‡ÅÑÉÄÄO$É¿¬P”™Q
  22.  É¡X’ò∂
  23. ɬ‡ÅÖÑÄÄRÉ¡X’òì
  24. ɬ‡ÅÜÖÄÄSÉ¡X’ò$
  25. ɬ‡ÅÜÖÄÄTÉ¡X’òJ
  26. ɬ‡ÅãäÄÄUÇ∏îOpen...Ç∏îOpen Accessory...Ç∏îClose TitleÇ∏Ñ-Ç∏îListenerÇ∏îNew ListenerÇ∏îVisual MemoryÇ∏Ñ-Ç∏îQuitÇ∏îUndoÇ∏Ñ-Ç∏îCutÇŒîüɬ@VWX)”™’î’ò    6í¥ˇÌYùwí•
  27. ©“ÉaˇÌ;æZtsˇ˙]Ô†œ∂ì$J    ΔÇ∏îCopyÇ∏îPasteÇ∏îClearÇ∏îSelect Allɬ
  28. BuildMenuyɬ@[\)”™’î’ò    6í¥ˇÌ]˘    Δ    v    ∑    W    ë            D    E    ß            Ÿ    ∏
  29. “    ˇÒù    a    í            2    <É¿¬^_”™Q            ZÉ¿¬`a”™Q! 
  30. 
  31.     ɬ DefaultMenuBÉ¿¬bcdX 
  32.      ˘ÇŒÙ }H "H "H"H "3'&|ˇ%$ÇÕç”™@e@f@g@h@i˘ÇŒÙ      
  33.   
  34.      
  35.           
  36.       """"~ÇÕΩ@ejkl@f@gmnopqrst@iuvwxyz{|}~ÄÅÇÉÑÖÜxÇŒÙ' """    
  37. A"
  38.     
  39. A
  40. ÇÕÖ”™@áàâä
  41. ɬname
  42. ɬfunc ɬaccɬenabled
  43. ɬdata
  44. ɬ‹ÅÖÑÄÄã
  45. ɬ‹ÅÖÑÄÄå
  46. ɬ‹ÅàáÄÄç
  47. ɬ‹ÅÇÅÅÅéɬ’ò
  48. ɬ‹ÅíëÄÄè
  49. ɬ‹ÅÇÅÅÅê
  50. ɬ‹ÅåãÄÄë
  51. ɬ‹ÅÇÅÄÄí
  52. ɬ‹ÅâàÄÄì
  53. ɬ‹ÅÇÅÅÅî
  54. ɬ‹ÅçåÄÄï
  55. ɬ‹ÅéçÄÄñ
  56. ɬ‹ÅÇÅÅÅó
  57. ɬ‹ÅÇÅÄÄò
  58. ɬ‹ÅÖÑÄÄô
  59. ɬ‹ÅÇÅÅÅö
  60. ɬ‹ÅÖÑÄÄõ
  61. ɬ‹ÅÇÅÅÅú
  62. ɬ‹ÅÇÅÄÄù
  63. ɬ‹ÅÑÉÄÄû
  64. ɬ‹ÅÇÅÅÅü
  65. ɬ‹ÅÖÑÄĆ
  66. ɬ‹ÅÇÅÅÅ°
  67. ɬ‹ÅÜÖÄÄ¢
  68. ɬ‹ÅÇÅÅÅ£
  69. ɬ‹ÅÜÖÄħ
  70. ɬ‹ÅãäÄÄ•
  71. ɬ‹ÅÇÅÅŶ
  72. ɬpath
  73. ɬ‹ÅâàÄÄß!É¿¬®©Xˇˇ
  74. ɬ‹ÅÇÅÄÄ™Ç∏îFileÇ∏îEditÇ∏îOpen...Ç∏ÑOÇ∏îOpen Accessory...Ç∏ÑYÇ∏îClose TitleÇ∏Ñ-Ç∏îListenerÇ∏ÑLÇ∏îNew ListenerÇ∏îVisual MemoryÇ∏ÑMÇ∏Ñ-Ç∏îQuitÇ∏ÑQÇ∏îUndoÇ∏ÑZÇ∏Ñ-Ç∏ÑCutÇ∏ÑXÇ∏îCopyÇ∏ÑCÇ∏îPasteÇ∏ÑVÇ∏îClearÇ∏îSelect AllÇ∏ÑAÇ∏îmenu.sxlÇŒÑ$Ç∏ÑaÉ◊ÏQ´◊ĨÉ◊ÏX≠ÆØ∞ É’ƒ±≤≥¥ É’ƒ±µ∂∑~Ç ΩÄqÄÌ@∏@π@∫@ª@º@Ω@æ@ø@¿@¡@¬@√@ƒ@≈@Δ@«@»@…@ @À@Ã@Õ@Œ@œ@–@—@“@”
  75. ɬ ‘’ÇîÅ>Ç ùÄUÄm@÷@◊@ÿ@Ÿ@⁄@€@‹@À@›@fi@fl@‡@·@‚@ø@ƒ@π@¡@„@‰@ÂÇ ÖÄÄ
  76. @ƒ
  77. ɬ ÊÁÅîÅ
  78. ɬ ËÈÅîŠɬ‡Ç …ÄÄÍ
  79. ɬÃÎÏÇäÅ
  80. ɬÃÌÓç®Å    É¡§»ö»ö»ö
  81. ɬÃÔÅäÅ
  82. ɬÃÒÚŮŠ   É¡§»ö»ö»öɬ    addItems ɬnewɬSystemMenuItemɬselectActionSetterɬemptyɬacceleratorSetterɬenabledSetterɬfalseɬauthorDataSetterɬappendɬ    callDataɬtheTitleContainerɬsetScratchMenuɬSystemMenuBarɬ SystemMenuɬopenTitleActionGetter"ɬopenAccessoryActionGetterɬcloseTitleActionGetterɬ showOrHideɬconsole É¬newListenerActionGetterɬ
  83. showOrHideVM
  84. ɬquitɬ
  85. cutSelectionɬcopySelectionɬpasteToSelectionɬclearSelectionɬ WindowMenu>Ç ùÛÙɬf·'"”™ˇˇɬstartUp
  86. ɬopenɬLibraryContainerɬsystemMenuBarSetterɬtheScratchTitleɬcloseɬisVisibleSetter
  87. ɬtrueɬaddTimeCallBackɬtheCalendarClockɬ timeGetterɬfileInɬ
  88. theScriptDirɬcopyrightSetterɬTitleContainerɬstartupActionSetter>Ç ù@ƒɬf·'"”™ˇˇ>Ç ùıɬf·'"”™ˇˇ˘Ç∏Ù
  89. function startUp tc -> (
  90.     local lc
  91.     
  92.     -- get the default menu bar
  93.     lc := open LibraryContainer path:"menu.sxl"
  94.     theScratchTitle.systemMenuBar := lc[1]
  95.     close lc
  96.  
  97.     -- open a listener window
  98.     console.isVisible := true
  99.     
  100.     -- prepare to close
  101.     AddTimeCallback theCalendarClock close tc #() (theCalendarClock.time + 3) true
  102.     -- add another time callback to make sure tc GC's
  103.     AddTimeCallback theCalendarClock (a -> a) "a" #() (thecalendarclock.time + 3) true
  104. )
  105. >Ç ù@ˆ˜@¯˘ɬf·'"”™ˇˇ˛Ç ˝Ä-˙Ä5˚ÄU¸Äa˝Äu˛ÄëˇÄ…Ä’ÄÈĢÅ!Å-ÅAɬf·'"”™ˇˇ>Ç ùAɬf·'"”™ˇˇ˛Ç ˝Ä
  106.     ɬf·'"”™ˇˇÉ√&X≈◊Ä»◊Ä◊ÄÉ√&’î≈◊Ä»◊Ä◊ÄÉ√&’î≈◊Ä»◊Ä◊Ä É¬lcɬvÄ
  107. Äߡˇˇ} ɬtcɬvÄ Äߡˇˇ}ɬ>Å)ÅΩɬ>ÅÅΩɬ>ÇIÇYɬ>Å≈ÇYɬ>ÇeÇÖɬ>Ç˝Éaɬ>ÑÅÑ’ɬ>ÑÅÑÂɬ>É≈Ñ˝ɬ>ÜYÜqɬ>ÜùÜÒɬ>Üùáɬ>Ö—á
  108. ɬaɬvÄ Äߡˇˇ}ɬ>ÜmÜqɬ>ÄÅA
  109. ɬ>ߡˇˇ}ߡˇˇ}
  110. ɬ>ߡˇˇ}ߡˇˇ}